home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / demo / mag / Grapevine10b.lha / sources / GVT_FormatBSTR.s < prev    next >
Text File  |  1990-09-13  |  585b  |  39 lines
  1.     ; GVT_formatBSTR.s by Shagratt of LSD
  2.  
  3.     ; this is distributable ONLY with GRAPEVINE ISSUE 10.
  4.  
  5.     section    ddp,code
  6.  
  7.     incdir    "dh0:includes/"
  8.     include    "libraries/gvt.i"
  9.  
  10.     ; gvt call corrupts a1,a2,a3,a4,a5,a6,d0,d1
  11.     ; dont push onto stack or it guru's (!!!)
  12.  
  13.     gvtcall    $110    ; send linefeed to COS
  14.     move.l    #bstr1,d1
  15.     lsr.l    #2,d1
  16.     move.l    #bstr2,d2
  17.     lsr.l    #2,d2
  18.     gvtcall    $128    ; send BSTR to COS
  19.  
  20.     gvtcall    $110    ; send linefeed to COS
  21.  
  22.  
  23. wait:    btst    #6,$bfe001
  24.     bne    wait
  25.  
  26.     clr.l    d0
  27.     rts
  28.  
  29.     
  30.     cnop    0,4    ; long align
  31. bstr1:    dc.b    11,"%S is kewl"
  32.  
  33.     cnop    0,4    ; long align
  34. bstr2:    dc.b    5,"LARD"
  35.     
  36.     
  37.     END
  38.  
  39.